2 HOME : FOR I = 1 TO 3: FOR J = 1 TO 3:S = 823 +I *256 +J *2: POKE S,185 -I *3 +J:S(I,J) = S: NEXT J,I:C = 1339: POKE C,53: VTAB 6: HTAB 16: PRINT "TEASER II":H = 0:T = 1: FOR X = 1 TO 1: FOR Q = 0 TO 1: FOR R = 0 TO 1: PRINT CHR$(7 *(R OR Q));: POKE 41,3: GET A$:A = 60 - ASC(A$): ON A = -22 GOTO 2:R = A >2 AND A <12: NEXT :I% = A/3
3 J = 3 *I% -A +3:Q = PEEK(S(I%,J)) <58: NEXT : FOR K = -2 TO 2 +(A < >7):L = SGN(K):S = S(I% +K -L,J +K -2 *L) *(K <3) +C *(K = 3):V = PEEK(S):D = SGN(V -76): POKE S,V -D *128:T = T +D: NEXT :H = H +1: VTAB 17: HTAB 20: PRINT H" <R>ESTART":X = (T = 0) *8 +(T = 8 AND A = 7): NEXT : FLASH : PRINT MID$ (" GENIUS!DUMMY",X,7)